! 2d 1d first

    else if (b_nd == 1) then
      if (trim(stack(stack_pointer - 1) % d2 % dimNames(1)) == &
          trim(stack(stack_pointer) % d1 % dimNames(1))) then

! 2d 1d second
